home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Expert
/
Windows Expert.iso
/
others
/
amimacro.zip
/
SAVETOB.SMM
< prev
next >
Wrap
INI File
|
1993-04-08
|
1KB
|
123 lines
[ver]
4
[sty]
_MACRO.STY
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
Citizen GSX-140
[port]
LPT1:
[lang]
1
[desc]
Saves the current document to the B:\ drive under the same name and description.
734281985
8
734072955
52
1
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[l1]
0
[pg]
1
16 0 12 1025 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#216,10800>FUNCTION SavetoB()
<:#216,10800>onerror endit
<:#216,10800>oncancel endit
<:#216,10800>Hourglass(1)
<:#216,10800>IgnoreKeyboard(1)
<:#216,10800>fn=GetOpenFileName$()
<:#216,10800>dn=GetDocInfo$(1)
db=strcat$("a:\",dn)
<:#216,10800>Save()
StatusBarMsg("Copying {fn} to A:\")
<:#216,10800>DOSCopyFile(fn,db)
<:#216,10800>Endit:
<:#216,10800>StatusBarMsg("")
<:#216,10800>Hourglass(0)
<:#216,10800>IgnoreKeyboard(0)
<:#216,10800>END FUNCTION
>
[Embedded]
00001047
>
[macsum] 1
SavetoB 0 0 4 0
[macse]
14 SavetoB
20 00000172
19 00000172
0 296 1
0 32 1
0 267
13
8 1
0 279 1
13
8 2
0 16 "a:\" "{2}"
13
8 3
2 103 1
0 789 "Copying {1} to A:\"
0 803 "{1}" "{3}"
0 789 ""
0 296 0
0 32 0
6 0
15
9
00001072